home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / fontview / intro.frm < prev    next >
Text File  |  1995-09-06  |  3KB  |  120 lines
  1. VERSION 2.00
  2. Begin Form Intro 
  3.    BackColor       =   &H00FFFFFF&
  4.    BorderStyle     =   3  'Fixed Double
  5.    Caption         =   "Font Viewer"
  6.    ClientHeight    =   2910
  7.    ClientLeft      =   1980
  8.    ClientTop       =   1935
  9.    ClientWidth     =   4830
  10.    ControlBox      =   0   'False
  11.    Height          =   3315
  12.    Icon            =   INTRO.FRX:0000
  13.    Left            =   1920
  14.    LinkMode        =   1  'Source
  15.    LinkTopic       =   "Form1"
  16.    MaxButton       =   0   'False
  17.    MinButton       =   0   'False
  18.    ScaleHeight     =   2910
  19.    ScaleWidth      =   4830
  20.    Top             =   1590
  21.    Width           =   4950
  22.    Begin PictureBox Picture1 
  23.       BackColor       =   &H00FFFFFF&
  24.       BorderStyle     =   0  'None
  25.       Height          =   555
  26.       Left            =   1980
  27.       Picture         =   INTRO.FRX:0302
  28.       ScaleHeight     =   555
  29.       ScaleWidth      =   645
  30.       TabIndex        =   1
  31.       Top             =   1260
  32.       Width           =   645
  33.    End
  34.    Begin Timer Timer1 
  35.       Interval        =   8000
  36.       Left            =   3600
  37.       Top             =   1170
  38.    End
  39.    Begin Label Label6 
  40.       Caption         =   "User Education"
  41.       ForeColor       =   &H00800000&
  42.       Height          =   285
  43.       Left            =   3150
  44.       TabIndex        =   6
  45.       Top             =   2520
  46.       Width           =   1365
  47.    End
  48.    Begin Label Label5 
  49.       Caption         =   "Applications/DABU"
  50.       ForeColor       =   &H00800000&
  51.       Height          =   195
  52.       Left            =   270
  53.       TabIndex        =   5
  54.       Top             =   2520
  55.       Width           =   1815
  56.    End
  57.    Begin Label Label4 
  58.       Caption         =   "Frederick F. Freeland Jr."
  59.       ForeColor       =   &H00800000&
  60.       Height          =   285
  61.       Left            =   1260
  62.       TabIndex        =   4
  63.       Top             =   2250
  64.       Width           =   2265
  65.    End
  66.    Begin Label Label3 
  67.       Caption         =   "Developed by:"
  68.       ForeColor       =   &H00800000&
  69.       Height          =   285
  70.       Left            =   1620
  71.       TabIndex        =   3
  72.       Top             =   1980
  73.       Width           =   1365
  74.    End
  75.    Begin Label Label2 
  76.       BackColor       =   &H00FFFFFF&
  77.       Caption         =   "⌐  1990 Microsoft Corporation."
  78.       ForeColor       =   &H00C00000&
  79.       Height          =   285
  80.       Left            =   990
  81.       TabIndex        =   2
  82.       Top             =   810
  83.       Width           =   2895
  84.    End
  85.    Begin Label Label7 
  86.       BackColor       =   &H00FFFFFF&
  87.       Caption         =   "Version 2.0"
  88.       ForeColor       =   &H00C00000&
  89.       Height          =   195
  90.       Left            =   1800
  91.       TabIndex        =   7
  92.       Top             =   540
  93.       Width           =   1275
  94.    End
  95.    Begin Label Label1 
  96.       BackColor       =   &H00FFFFFF&
  97.       Caption         =   "Microsoft Font Viewer "
  98.       ForeColor       =   &H000000C0&
  99.       Height          =   285
  100.       Left            =   1260
  101.       TabIndex        =   0
  102.       Top             =   270
  103.       Width           =   2535
  104.    End
  105. End
  106.  
  107. Sub Form_Load ()
  108.     ' Initialize form position
  109.     Left = (Screen.Width - Width) / 2
  110.     Top = (Screen.Height - Height) / 2
  111.     
  112.     FontViewer.Hide
  113. End Sub
  114.  
  115. Sub Timer1_Timer ()
  116.     FontViewer.Show
  117.     Unload Intro
  118. End Sub
  119.  
  120.